$a = 10;

do{
	print "value of a :$a\n";
	$a +=1;
}while($a < 20);